From d177495be731f25483888a16100d06149765555a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 Jun 1993 01:11:53 +0000 Subject: [PATCH] (mouse-union-first-preferred): Renamed from mouse-union-first-prefered. --- lisp/term/sun-mouse.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index 0ac9e46f4ea..2356c65917a 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el @@ -462,7 +462,7 @@ where L-UNIQUE is considered to be union'ized already." (setq l (cdr l))) result)) -(defun mouse-union-first-prefered (l1 l2) +(defun mouse-union-first-preferred (l1 l2) "Return the union of lists of mouse (code . form) pairs L1 and L2, based on the code's, with preference going to elements in L1." (mouse-union l2 (mouse-union l1 nil))) @@ -471,7 +471,7 @@ based on the code's, with preference going to elements in L1." "Return a list of (code . function) pairs, where each code is currently set in the REGION." (let ((mask (mouse-region-to-code region))) - (mouse-union-first-prefered + (mouse-union-first-preferred (mouse-mask-lookup mask (cdr current-local-mousemap)) (mouse-mask-lookup mask (cdr current-global-mousemap)) ))) -- 2.30.2